home *** CD-ROM | disk | FTP | other *** search
/ Saar AMOK 2 / Saar AMOK II - Oktober 1994 (1994)(Kreativ Marketing)(DE)[!][I-7598].iso / disks / 651_700 / 663 / mathplot / macros / test1.rexx < prev    next >
OS/2 REXX Batch file  |  1994-01-01  |  945b  |  46 lines
  1. /* Simple test of beep */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. beep
  6.  
  7. /* getfunc, getXderive */
  8. getfunc     number 0 var sinus
  9. get1derive  number 0 var sinus1
  10. get2derive  NUMBER 0 var sinus2
  11.  
  12. say "The first  function   is "sinus
  13. say "The first  derivation is "sinus1
  14. say "The second derivation is "sinus2
  15.  
  16. /* Get the version string */
  17. version var version
  18. say "The version string is "version
  19. say
  20.  
  21. /* Test getcolor/setcolor */
  22. clear force
  23.  
  24. setcolor    plotcolor 1
  25. getfunc     0 var func
  26. get1derive  0 var deri
  27. getcolor plotcolor var first
  28. plot 0 normal
  29. setcolor plotcolor 2
  30. plot 0 derive1
  31. getcolor plotcolor var second
  32.  
  33. say "First, the color was "first" function "func
  34. say "Then, it was         "second" function "deri
  35.  
  36. /* Test the labels and color */
  37. setcolor axiscolor 3
  38. showaxis
  39.  
  40. getcolor plotcolor axiscolor
  41. say "Plotcolor and axiscolor" result
  42.  
  43.  
  44. getcolor plotcolor axiscolor stem a.
  45. say "The same, with stem    " a.plotcolor "," a.axiscolor
  46.